(dired-show-file-type): Format filename with "%s" to escape any format-like

sequences it could contain.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index c20888f7da122c579927fc62eb96f4435a3eecd7..09ad9f9a677a7b9f276d595408ca7310045a52ac 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2033,7 +2033,7 @@ true then the type of the file linked to by FILE is printed instead."
       (call-process "file" nil t t "--" file))
     (when (bolp)
       (backward-delete-char 1))
-    (message (buffer-string))))
+    (message "%s" (buffer-string))))
 
 (provide 'dired-aux)